library(tidyverse)

read.csv("../../data/raw/2017Survey.csv", stringsAsFactors = FALSE) %>%
  select(-c(1:10)) %>%
  select(-zip, -rid,) %>%
  write.csv('../../data/raw/2017Survey_data_pii_removed.csv', row.names = F)


